SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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II NNNN NN I] AA AA DO DD PP UU UU VV VV 11 
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II NN NN I] AA 0D DD PP UU UU ve VV 11 eee 
III NN NN III] AA AA DDDDDDDD PP UUUUUUUUUU VV 111111 cece 
III! NN NN III] AA AA DDDDDDDD PP UUUUUUUUUU vy 111111 ceee 
LL HII! SySSSSSS 
LL W111! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL Il SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


ADPUV1 

le of contents 
(3) 4 
(4) 
% 
(33 734 
(8) 9 
(9) 1 
(10) 1 
(11) 1109 
(13) 1 $3 
(14) 1339 
(14) 1815 
(14) 1 1 
(14) 181 
(14) 1997 
(14) 031 
(15) 141 
(16) 299 
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n ze_and map nexuses 
INI TADP_ 780 $38! 7530. and UV 
CONF 1610 AcE 
CREATE ARRAYS 
MAP_PAGES 
INISUBSPACE 
INISUBADP = BUILD ADP AND INITIALIZE UBA 
INISMBADP = BUILD ADP AND INITIALIZE MBA 
INISDRADP = BUILD ADP AND INITIALIZE DR32 
amascl Age - BUILD ADP AND INITIALIZE Cl 
INISCONSOLE, init data structures for console 
EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWAIT LOOP VALUES 
EXESINIT_TODR - SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 
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«NLIST CND 


OOCoooo 


«TITLE INIADPUV1 = ADAPTER INITIALIZATION FOR MICRO-VAX I 


-IDENT ‘V04-002' 


. 
SRA AAA AERA AAAAAAAAAAAAAAAAAAEARAAAAAAAAAAARARARAAAAAARERAEAAERERAEAATAATE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVE 


*® ey 
:® ® 
'® os 
:® ® 
*® e 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND D MAY BE USED AND COPIED 

® 
;* é OTIC "SOFTWARE . 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
;@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
:* ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
‘® a 
** ® 
** ® 
:® ® 
*® ® 
°* * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ARTA AREA AAA EAAAAAAAARAAAAAAAAAAAAAAAAARAAAAAAAAAAAARARAAAAAAARAAE 


SOSCSSOSSOSOSOSOSOSOSOSS OOOO SOOSOSOSOSOOSOOOOOSOSOOO 


COOSOSOSCSSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOSOSOSOOSOSOS 
OGOOOCOOSOOOCOCOOSOSOSOSOSOSOSSSSSSSSCSCOSOSOSCSOCOSOOSOOOOO OOOO OOOOOoOO 


; Facility: System bootstrapping and initialization 


Abstract: This module contains initialization routines that are loaded 
uring system initialization (rather than Linked into the system). 


; Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 


SDOOOOSOOSOOSOOOSOOOSOSOOSOOSOOOOOOOOOOSoOSOSoOO 
OOooooooooo Ss 


OOGooooooooooo 


SOOOSoSOSOO 
SOoSoOSOSCO 
SOSOSOSOOSSS 
~N 
-3 


MEAN SO OD NAU EWN O OO NAUN EWN O OD NA UE WIN OOOO ONIN OU 


DDD DPDP DPSS SISSON BB EE BB BE NNN NII NPINNPON | 


; Author: Trudy C. Matthews Creation date: 22-Jan-1981 
; Modification history: 
v04-002 TCMO013 C. Matthews 10-Sep-1984 
Add $BQODEF ullaakon ae TCMOO12. 
v04-001 TCMO0012 Srudy c. _fatthous 07-Sep-1984 


6 For venus proces on cache bofere calibrating 
TIMEDWAIT cells euetae TEXESINI _TIMWAIT). Store the TIMEDWAIT 
values calculated after cache is enabled in the boot driver's 
TIMEDWAIT cells. This is because the boot driver initially 


has to run with cache off, but after booting will run with 


rs 
7 
. 
. 
. 
4 
: 
a 
: 
3 
° 
° 
~ 
. 
. 
o 
4 
° 
‘3 
. 
J 
. 
° 
e 
° 
: 
: 
‘ 
: 
. 
Py 
= 
: 
4 
Py 
4 
: 
: 
: 
Py 
e 
° 
° 
- 
. 
e 
. 
Py 


q cache on. 
7 v03-024 TCmMO011 rudy C. Matthews 31-Jul-1984 
74 Change venus's CRD nterrupt vector back to K54 in the SCB, 
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and its SBIA Fail vector to “X64. 


v03-023 wMc0001 ve ne Cardoza 30-Jul-1984 
Add H memory to 7 list. 


v03-022 TCMO0010 {rudy C. Matthews 25-Jul-1984 
Fix a bug in INISUBSPACE for the 11/790 that caused second 
and eg uni bus adopter spaces to be mapped incorrectly. 
y eyes n INI$SCB for the 11/790. Fix condtt tenet 
assembly flags in INISCONSOLE for the 11/790. 


v03-021 KDM0100 Kathleen D. Morse 01-May-1984 
Correct address of memory CSRs to be past the 8 missing 
Qbus adapter pages that do not exist. 


v03-020 KDM0099 Kathleen D. Morse 27-Apr-1984 
On a MicroVAX I, if the sysgen parameter TIMEDWAIT is set 
to request no time-prom t ng. then use the last recorded 
erates time instead. This is found in EXE$GQ_TODCBASE 
which can be updated with a SET TIME command. 


V03-019 RLRSCORPIO Robert bs Ra gegort 16-Mar-1984 
Begin additions (to INISIOMAP) for Scorpio support. 
Also move ADAPDESC to SYSMAR.MAR, changing it to remove 
the ADAP_GENERAL array. 


V03-018 RLRINIADP Robert Rappaport 28-F eb-1984 
Add refinements to previous update that introduces 
lLonqword array CONFREG. Mainly add logic to allow for 
independently assembled invocations of ADAPDESC macro 
to be Linked into this code. This provides possible 
support of BI as a public bus, with user defined nodes. 


v03-017 KPLO100 Peter Lieberwirth 30-Jan-1984 
Implement first step towards a longword-array CONFREG to 
replace current byte array CONFREG. INIADP will construct 
two confregs, CONFREG and CONFREGL. CONFREGL will be 
a longword array. The high byte will be a VMS-bus 
designation, and the low word will contain the 16-bit 
device type. The BI introduces 16 bit device types. 


Ooo 


DOOQOOCOOOOOCOCOOOOOOOoOoO 
pole lelelelelolelelel ole o} 


SOOSOSOSSOSSSOOSSSOSOOSOSOOOSOSOSOSOSOSOSOSOSOSOSOOOOOOOOSOSOO 


WO ODONOAUS WO OOnNOu 


SOoOooooooooooooooooooooosooooooooooooooo 


COOOOCOCCOCOOSSOOOOOSOOOCOOOSOOOOoOoOoOO 


When all references to CONFREG have been modified to touch 
CONFREGL, INIADP will be modified again to stop creating 
the byte array. 


OOooOoooooooooooooooooocoooo 


While here, map 9 pages of CI register space, up from 8. 


v03-016 KPLO001 Peter Lieberwirth 17-Jan-1984 
Fix bug in VO3-015 that caused a failure to boot on 750s. 
Specifically, add NDT$_MEM1664NI to ADAPDESC macro. 


v03-015 TCMO009 frudy C. Matthews 12-Dec-1983 
Add suppers for booting from VENUS console device to 
INISCONSOLE. When mapping I/0 space on VENUS, use the 
ane to determine if any adaptors are present on the 


~o 
=O ODNAUE WIN (OOO NOAUE WIN OVOONAUS WN OOo 


Bete Se See Ge Ge Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Se Sse Se Se Se Se Ge Sete Se 


a 4 — — — 2 ss — 2 ob 9 9 ss 9 45 2 ss ss 


SoOOoooooooooocooSo 
SOoOoooooooooooooo 
SOoooooooooooooo 
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SOOSOSCSOOOCSOOOCOOCOOSOSOOOOCSOOSOOSOSOSOSOOOSOSOSOSOSOSOSOSOOOCOOSOOOOOSoO 
SOCOSCSCOOSOSOOOCOOSOOSOOOOOOSOSOSCOOSOSOSOOSOOSOSOOOCOOOSOOOSoOO 

fe ae | mee ee ne we |e fe we we ew ww ww lw nla lan la lala lalolololololololelolololololo) 

DOOD OD IIIS SDS DS DD. DDD DDD TT BB BBP BEE EWI 


SOoooooooooooooooooooooooooooooooooooSD 


SYSLOA.SRCJINIADP.MAR; 3 


v03-014 KDM0081 Kathleen D. Morse 13-Sep-1983 
Create version for Micro-VAX I. 
V03-013 DWT0126 David W. Thiel 30-Aug-1983 


Modify EXESINIT_ TODR to set internal time without 
modi fying the contents of the system disk. 


V03-012 KDM0062 Kathleen D. Horse 18-Jul-1983 
Add loadable, cpu-dependent routine for initializing 
the time-wait loop data cells, EXESINI_TIMWAIT. 


v03-011 KDM0057 Kathleen D. Morse 15-Jul-1983 
Added loadable, c uegensndent routine for initializing 
the system time, EXESINIT_TODR. 


v03-010 KTA3071 erbey T. Altmann 12-Jul-1983 
Include cPuU-speci fic console init code. 


v03-009 peneese rudy C. Matthews 10-Jan-1983 
roenge ¢ PSECT of 149 0 data that one + hee around after 
ADP is deleted. Build arrays ABUS_ TYPE ond 
ABUS. INDEX that describe the 11/790 URBUS “configuration. 


V03-008 MSHO002 Maryann Winden 08-Dec-1982 
Add powerfail support for DW750. 
v03-007 powers Ralph 0. Weber 24-NOV-1982 


ange e UBA tenereust services routines prototype so 
GBAE RADR is correctly computed as an offset from OBAINTRASE. 


v03-006 TCM0007 dy Matthews 10-Nov-1982 
Add 11/790specific nitialization of SCB. 


v03-005 TCM0006 88-Nov-1982 
Initialize field revey, ° AvectOR vith the address of 
oat adapter's first SCB vector. 


V03-004 KTA3018 Kerbey T. Altmann 30-0c t-1962 
Move from INILOA faci 7 rename from INITAN?P 
put in conditional assem ly. rewrite some routines. 


v03-003 MSHO001 ment? ann Hinden 24-Sep-1982 
Change EXESDW780_INT to EXESUBAERR_ INT. 

v03-002 TCMO00S Trudy f Matthews 10-Aug-1982 
Added support for 11/7 6 processor. 

v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 


Added SDCDEF. 


co 
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SEP-1984 16: SYSLOA.SRCJ INIADP.MAR:3 (2) 
184 : 
} 5 : MACRO LIBRARY CALLS 
1 $: SADPDEF 3; Define ADP offsets. 
1 3 SBIICDEF ; Define BIIC offsets. 
1 SBQODEF : Define boot vector offsets. 
1 ? SBTODEF ; Define boot eoy ces 
19 SBUADEF 3; Define BUA Re — offsets. 
136 SCRBDEF ; Define CRB offsets. 
0 19 SDCDEF :; Define edester types 
194 SODBDEF 3; Define DDB offse 
195 SDYNDEF 3: Define data shreste type codes. 
496 thera ; Define interrupt q'gpate er offsets. 
it 1 SIOUV1DEF 3; Define Micro-VAX I I/0 space. 
0 19 SMCHKDEF 3; Define machine check nea Ss. 
00 0 SNDTDEF :; Define nexus device types. 
8 } SPRDEF : Define IPR numbers. 
0000 8 
000 
0000 34 
0000 38 
0000 3 SPRUVIDEF ; Define Micro-VAX I specific IPRs. 
0000 4 
0000 6 
0000 4 SPTEDEF ; Define Page Table Entry bits. 
0000 48 SRPBDEF : Define Restart Parameter Block fields. 
0000 $e8 SUBADEF 3; Define UBA re toter offsets. 
0000 50 SUCBDEF 3; Define UCB offse 
0000 251 SVADEF 3; Define virtual +. = fields. 
0000 252 SVECDEF 3; Define vec offsets. 


order byte will contain Os. 


- The “‘all Os'' and “‘all 1s'* device-type codes are 
reserved for DEC. 


SBI type codes were etealy expanded to a word for purposes of the routines 
this module, there would be possible conflicts between SBI devices and 
memory adapters supplied by DEC. Voila: the bus type. 

cro FLOAT_NEXUS. 

PUTS: 


PHYSADR == physical address of 1 or more contiguous floating nexus 


— Iz D—.- 
2o =-sJ—- 


slots 
NUMNEX == number of contiguous floating nexuses, default = 1 
PERNEX == amount of address space per nexus (does not have to be 
specified if NUMNEX = 1) 


»MACRO FLOAT_NEXUS PHY SADR ,NUMNEX=1 , PERNEX=0 
= PHYSADR 
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¢ ; -SBTTL Macros to describe nexus configurations 
: The macros FLOAT_NEXUS and FIXED_NEXUS add one or more entries to a 
: nexus descriptor table. Each entry is of the form: 
: | PFN of nexus I/0 space 
3 Se ee $ 
3 ea. 5 Oe type ' 
3 ee meson t 
3 type = 0 => heady nexus 
3 type = non-zero => fixed nexus; type = fixed adapter type 
; bus = 0, if SBI; %x80 if BI (this is a VMS-only designation) 
; device_type: SBI adapters have 8-bit device type codes. These 
00 ; device types are simple integers. 
00 ; BI adapters have 16-bit device type codes, that are 
8 5 subject to the following interpretation: 
00 : - the MSB of the device-type field will be 0 for DEC 
Bh 5 devices and 1 for non=-DEC devices, 
00 : - DEC memory devices will have 0s in the high-order 
00 3 byte of the device type, 
: - non-DEC supplied memory devices will have a 1 in the 
3 MSB of the high-order byte, and the rest of the high 


PA 

REPEAT NUMNEX 3; For each nexus... 

-LONG <PA/*X200> 3; Store PFN. 

‘ ; Store floating nexus type. 

PA = PA + PERNEX ; Increment to physical address of next nexus. 


[ENDM = FLOAT_NEXUS 


—BDOOODOODOOOOOOO OOO OOOO 000009 09 69 09 69 09 09 08 SII NN SINS NS NS NSN NIP AAAAAAAAO 
SOONAMNL WN OS OONAMU EWN OS OO NAME WIN @ OOO NAULS WN (OO OONAULS WR OWOOonoe 


SOOoSCOooooooooooooooQoooooooooooooooooooOoooooOoooOOoO: 
SOOoOQOQooooooooooooooooooooooooosoooooooooooooooooooo 
SQoogooooQoooooooooooooooooooooosooo 


> Macro FIXED_NEXUS. 


- ADAPTER INITIA 
Macros to descri 


00000000 
00000001 


00000001 
00000002 


00000000 
80000000 


FFFFFFFB 


— 


NAMA WS OOO NIA UNE WIN @ SO OOD NAME WN SO OO NAU EWN O OO NAME WI OWOONOULS Wr 


1 
1 
1 
1 
1 
1 
1 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
P) 
5 
6 
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PHYSADR = physical address of 1 or more contiguous fixed nexus slots 
PERNEX = amount 9 address space per nexus 
NEXUSTYPES = a List of fixed nexus types, enclosed in <> 


»MACRO FIXED_NEXUS PHYSADR , PERNEX=0 ,NEXUSTYPES 
PA_= PHYSA 


~ IRP pba 43 NEXUSTYPES ; For each fixed nexus type... 

[LONG  <PA/*x206> : Store PFN. 

-LONG TYPECODE i; Store fixed nexus type. 

PA = PA + PERNEX 3; Increment to address of next nexus. 


~END 
“ENDM FIXED NEXUS 


NEXUSDESC_TABLE = declare the beginning of a NEXUS descriptor table 


Ist byte in table (at offset -5 from Label) contains length of 
adapter tyee code field in CSR's on this bus. [Note for SBI Like 
busses, this is 1.) The next longword (at offset -4) in the 
table contains the Software defined bus type byte defined in the 
high order byte of the Longword Note for SBI Like busses, this 
value is 0, for the BI it is *x80. 


3; Define parameters that may be specified or used in macro invocation. 


BI_LIKE =0 ; BI Like bus. 
SBI_LIKE = 1 ; SBI Like bus. 
SBI_CSR_LEN = 1 ; Length of sype code field in adapter CSR's 
; on SBI, CMI, etc. 
BI_CSR_LEN = 2 3 Lengy of type code field in adapter CSR's 
; on BI. 
S$B1_BUS_CODE = 0 : Software defined bus code for SBI Like busses. 
BI_Bus_topE = *x80000000 ; Software defined bus code for the Bl. 
~-MACRO NEXUSDESC_TABLE LABEL,BUS_TYPE=SBI_LIKE 
If EQ,BUS_TYPE-SBI_LIKE 
-BYTE SBI_CSR_LEN 
se «LONG SBI_BUS_CODE 
/ IF EQ,BUS_TYPE-BI_LIKE 
-BYTE ~~ BI_CSR_LEN 
8 -LONG BI_BUS_CODE 
ie -ERROR ; UNRECOGNIZED BUS TYPE, NEXUSDESC_TABLE; 
.ENDC 
LABEL: 
-ENDM NEXUSDESC_TABLE 
CSR_LEN_OFFSET = <5 ; Offset before nexus descriptor of 


; byte containing Length of adapter 
type field in adapter CSR. 
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; Offset before nexus descriptor table 
) 


: of es containing software 
; defined bus type to be or'ed with 


FFFFFFFC 0000 i BUS_CODE_OFFSET = <4 
adapter type to produce NDT$_ value. 


i ; Macro END_NEXUSDESC. 


74 ; 
7 MACRO END _NEXUSDESC 
u LONG 


5 
§ s PFN=0 => end of nexus descriptors. 
-ENDM END_NEXUSDESC 


0 
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7 ; -SBTTL Adapter-specific data structures 
; Put a symbol for arrays built by macros in the correct psects. 


[eeeeeeeerereeeees ADAPTERS array *ttteeeeerenee 
0000 LPSECT  SSSINITSDATAO 


ADAPTERS: ; Build adapter type code arrays here. 


-PSECT SSSINITSDATA1 ; User contributions in this .PSECT. 
; End of ADAPTERS array. 


0000 
peeeeeeeeeeeerenee End of ADAPTERS array tteeeeeeeeeee 


peeeeeeeerereeeeee NUM PAGES array tttterereneee 


agegrse SS$SINITSDATAZ 
: PSECT $SSINITSDATA3 


0000 
0000 


5 


; Build ‘number of pages to map'’ array. 
‘ 3; User contributions in this .PSECT. 
peeeneereeeereeere End of NUM_PAGESarray *ttrteeeeeene 


OOoooo 


peeeeeeeeeerereeee INIT ROUTINES array tttereeeernee 


SOoooooooooo 


polo lojeleloleloleolololo) 


4 
9 
38 
94 
95 
$ 
0 9 
0000 98 -PSECT SSSINITSDATAS 
0 99 INIT_ROUTINES: ; Build “address of init routine’ array. 
0000000 400 -PSECT S$S$SINITSDATAS ; User contributions in this .PSECT. 
0000 401 j;eeeeeeerereretere End of INIT_ROUTINES array **teeeneeeeee 
4 186 
000 405 ; 
0000 404 ; To add a new adapter types 
0000 i 2 3 1) Add a new ADAPDESC macro invocation to the end of this List. 
00000000 407 -PSECT S$$SINITSDATA,LONG 
4 408 
000 409 ; 
444 410 ; Default interupt vectors for UNIBUS erates devices 
000 411 ; (This array is indexed by the RPB field RPBSB_DEVTYP, if the RPB field 
000 218 ; RPBSW_ROUBVEC is zero. If RPBSW_ROUBVEC is not zero, then RPBS$W_ROUBVEC 
B28 413 ; is used and this array is not referenced at all. RPBS$W_ROUBVEC Ts set up 
00 414 ; by PQDRIVER. RPBSL_BOOTRO is set by VMB to contain the device name in 
898 415 ; ASCII, not the vector number and device type, as it does on full 
$18 3; architecture VAX machines. 
4 417 ; 
0 418 BOOTVECTOR: 
0088 8 419 -WORD “X88 3; RKO6/7 Interrupt vector 
0070 53 ? 9 «WORD “x70 3; RLO1/2 Interrupt vector 
4 4& § BUS_CSR_LEN: ; Static byte containing the length (in bytes) 
00 4 4 -BYTE 0 : of the adapter type field in the CSR's of 
5 6424 3; the bus currently being configured. The 
5 = 425 : proper value for the bus of interest is 
5 64 § 3 copied here, from the current nexus 
4 3 descriptor table, when we enter subroutine 
? 3 ; CONFIG_IOSPACE. 
430 SW_BUS_CODE: ; Static lLongword containing the software 
00000000 471 -LONG 0 : defined bus type, of the bus currently being 
4 § ; configured, in the high order byte. The 
9 4 ; proper value for the bus of current interest 
9 434 : 1s copied here, from the nexus descriptor 
9 4355 ; table, when we enter subroutine 
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| ; § ; CONFIG_IOSPACE. 
9 ? 8 DIRECT_VEC_NODE_CNT: ; Sqecie lonquerd ne counts che — of 
P rect vectoring adpater nodes at we nave 
00000000 $ 44 .LONG 0 ; Pun across $6 tar.” 
00 1 D 442 SSSVMSDEFINED = 1 ; Define sym that means VMS system software. 
ttt ty p 443 NUMUBAVEC = 128 + ALLOW FOR 35 UNIBUS VECTORS 
D 445 ADAPDESC = ; Renory. #* MUST BE 1ST IN DESCRIPTOR LIST ** 
p 446 AOPTYPE Seco TS I MEM1664NI ,NDTS_MEMGNI ,NDTS$_MEM4I ,NDT$_MEMIONI, - 
p 448 NDTS= SRE neantL NDTS$_MEM64EIL,NDTS_MEMG4NIU,NDTS_MEM64EIU, - 
D 450 NDT$ REnesBinL, NDT$_MEM256EIL,NDTS_MEM2S56NIU,NDT$_MEM256EIU, - 
00D 451 NDT 18. “MEM2561 
00D 43¢ NOT$"SCORMEM> = 
99D 45 NUMPKGE Se) 
0D 454 
000 455 ADAPDESC - MASSbus. 
000D 456 ADPTYPES=NDTS ne, - 
9900 457 NUMPAGES=8 
00D 438 INI TRIN= INI SMBADP 
0000 45 
000D 460 ADAPDESC - 
9000 461 ADPTYPES=<NDTS._ ubo” NOvS. _UB1 ,NDT$_UB2,NDT$_UB3,NDT$_BUA>, - 
$095 188 INI TRTN=IN{ SUBSPACE 
000D 464 
000D 465 ADAPDESC - i-port memory. 
00D 466 ADPTYPES=<NDTS mbm. NETS” MPM1,NDT$_MPM2,NDTS_MPM3>, - 
00D 467 NUMPAGE S= 
00D 468 INI TRTN=INISMPMADP 
00D 469 
00D 470 ADAPDESC - DR32. 
0D 471 ADPTYPES=NDTS _pré2> 
0D 47¢ NUMPAGES= 
D 47 INI TRIN= INI SDRADP 
000D 474 
000 475 ADAPDESC - C1780 
990 476 ADPTYPES= NDT$ of 
00D 47 PAGES=9 
00 478 WNITRINGINESCIADP 
4 480 ADAPDESC - KDZ11 Processor 
D 481 ADPTYPES= NDTS _Koitt, 
dD 4 ; UMPAGES=1 
» 4 INITRINSINISKDZ11 
00D 484 
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; -SBTTL CPU-specific data structures 
; To add a new CPU type: 


: 1) Create a new nexus descriptor table, using FLOAT_NEXUS and 
: FIXED_NEXUS macros. Put an END_NEXUSDESC macro at the end. 


CPU_ADPSIZE: 
0258 «WORD ADPSC_UBAADPLEN 
: Declare the beginning of a nexus-descriptor table. 
o NEXUSDESC_TABLE LABEL=NEXUSDESC 
: 
\ > Describe all nexuses on a Micro-VAX I processor. 
00000000 001 : SBI_CPU = 0 
00000000 1 BI _ CPU = 
1 FIRED_NEXUS - 
1 PHYSADR=IOUVISAL_QBOSP, - 
1 NEXUSTYPES=NDT$_080 
1 END_NEXUSDESC 


Nexus ‘‘descriptor’’ arrays -- these arrays hold the nexus-device type and 
virtual address of every adapter on the system. The arrays, CONFREGL and 
SBICONF, are allocated enough space to hold the maximum number of adapters 
that can be attached to any CPU. When the code discovers how many adapters 
; actually exist on the system, it will allocate spese from non-paged pool 
and move a permanent copy of these arrays into that space. 

MAXNEXUS = 64 
CONFREG: 


00000040 
; Byte array of nexus-device type codes.. 


AOQODNA NEW O OD NANOS OOO NAUL WO OD NAU LEWIN ONONMODNOUSW 
. . 


— —DQOOOCOCOCOCOCOCOSOCSOOSOOCOS COCO OCOCoCoooooooooooooo 
SOOCOOCOCOOCOCOOOCOCOOOSSO HLHLHLHLHLHLLLHKLHLTNANARUAMRNROVTVIVVVVV9V"C0C0C00—€8 
NN QO DDSI NINN NNN NNN NIA AAA AAAAAOUN— OO 


NNN NEA AAAAAAAAAAAAAAAOAOOOAO 


SOOooooQoQooooooQooooooooooooooooooooo 


00000060 2 58 1Conr -BLKB MAXNEXUS 
00000160 ? laeeeeil’ LKL MAXNEXUS ; Longword array of VAs of «dapter space. 
00000260 6 -BLKL MAXNEXUS ; Longword array of nexus-device type codes 


<e_ 
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é 3 -SBTTL Message strings 
SSH a 
8 


eASCIZ <CRO<LF>/ZEXECINIT-F-Insufficient SPT entries/<CR><LF> 


2D 54 49 4E 49 43 4 45 25 0A OD 
PRR RERE ORE RS oe 
00 OA 0D 73 6 84 
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~SBTTL INISIOMAP, Initialize and map nexuses 


p++ 
; FUNCTIONAL DESCRIPTION: 

This routine is executed only once, during system sw ietat teat ten. 
It loops through all nexuses on the ayetes. sget tag fe 
adapters. When it finds an adapter, it maps its 1/0 space and 
initializes it. 


INPUTS: 
BOOSGL _SPTFREL = next free VPN 
mRGeCL _SPTVASE = base of s ayotes page table 
EXESGL_RPB - address of reboot parameter block 


OUTPUTS: 
RO = SS$_NORMAL 


For each cme y 7 found its pene ge et 


vOs-008 INISIOMA 


1/0 space is mapped to virtual 
addresses. An ADP (A dapter Control Block) ts built, and the hardware 
adapter is inicieliaed, 


ny erters CONFREG (a ozte array of nexus-device type codes, defined 
Wirt symbols) and SBICONF (a Longword vee 9 of 
: rtual _oddresses that map adapter space) are initialized. Pointers 
eocreye are stored in EXESGL_CONFREG and 


ODSOOO O09 00 69 G9 09 G9. Cd Cd CD OS G9 GD CO CD CD CO CD 0D CD CD CD C9. 0D 0D CD 0009 0D 9.00.00 00 C9 CD0D0D 


FEF FOOCOCOOOOOOOOOOOOOODOOOOVOOOOVOVOOODOODOOOOOOOOODO > > 


mnc$ct SBIC The number of entriés in these two parallel arrays is 
ie stored in EXESGL_NUMNEXUS. 
764 Since BI devices have a 16-bit device type code new CONFREG array is 
£6? constructed. This is a longword array called CONFREGL. 
76 Several locations in the RPB that describe the boot device are init’ed: 
£08 RPBS$L_BOOTR1 - ae index into CONFREG and SBICONF for the boot 
770 RPBSL_ADPVIR - holds vA of boot device adapter's register space 
aa RPBSL_CSRVIR - holds VA of boot device's register space 
77 
0000 774 -PSECT S$S$SINITSCODE,QUAD 
ag INISIOMAP: : 
OFFF 8F BB 00 109 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
6 78 : Set up common inputs to CONFIG_IOSPACE subroutine for the CPU-specific code. 
6 Q00000000'GF oD ° 7 ° : MOVL G*BOOSGL_SPTFREL, . ; Get next available VPN. 
5 00: OO'GF oD 7 § MOVL Tats rERay =$RTBASE.R ; Get base of eat Page Table. 
03 p 1 7 MOVAL ; Compute SVAS 
340008 1 784 ASHL ae ; Convert VPN to VA. 
52 00 C 1A 785 BISL #982. SYSTEM, a2 : Set system bit. 
D4 ree § CLRL RG : Clear index into CONFREG and SBICONF. 
59 er DO a MOVL oo eae eel. RPB,RO Get address of 
80000000" GF ‘CF DE OO2A 791 MOVAL W*SBICON NF G"AMGSGL_ $B1 CONE g Set pointers to local copies 
*GF ‘CF DE 0033 038 MOVAL W*CONFREG,G*EXESGL-CONFREG ; of these arrays for init routines. 
00000000 ' GF 160°CF DE O03C 79 MOVAL W*CONFREGL,G* eXESCL CONFREGL ; ... 
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r 6 -SBTTL INITADP_780, _750, _730, and _UV1 
4 ; 1/0 address space for the 11/780, 11/750, 11/730, and Micro-VAX I cpus 
ri ¢ ; is statically defined in their respective nexus descriptor tables. 
56 0014" CF DE 004 4° MOVAL W*NEXUSDESC,R6 ; Get address of nexus table. 
B D4 4A 905 CLRL R11 ; Signal use Ist page of SCB. 
0B 10 bee Op9 BSBB CONF 1G_IOSPACE ; Configure processor I/0 space. 
4E 909 
0079 «30 SE 910 BSBW CREATE_ARRAYS ; Create CONFREG and SBICONF arrays. 
ore 8F BA be 911 POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
0 O01 00 55 318 MOVL #1,R0 ; Set success status 
05 0058 91 RSB ; Return. 


T 
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~SBTTL CONFIG_IOSPACE 
siauctiong OSPACE 


ven a nexus descriptor table, which describes what ‘'nexuses'’ or 
slots are available on a ereses to hold 1/0 adapters, find and 


04-002 CONF 


—rmnm 
Ue 
rz 
o- 


S 


initialize all adapters on the system. 

Inputs: 
R2 - next available virtual address, to be used for mapping 1/0 space 
R35 - address of PTE associated with VA in 


R4 = Current index into CONFREG and SBICONF arrays (should be 0 the 
first time CONFIG_IOSPACE is called) 

6 - address of nexus descriptor table 

R9 = address of Restart Parameter Block (RPB) 

R10 - PFN of boot adapter space 

R1i= page offset from beginning of SCB; tells which page of the SCB 

to use for this set of nexuses (passed to routines that init ADP) 


; Outputs: 

R2,R3,R4 - updated 

R9,R10,R11 = preserved; all other Pagratere potentially modified 
CONFREG = initialized with adapter NDT$ code for each nexus 
SBICONF = initialized with adapter space VA for each nexus 


CONF 1G_IOSPACE: 


; There is only one adapter, the Qbus. 
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FB A6 «890 MOVB CSR_LEN_OFFSET(R6),- ; Move Length of adapter type field 
0004'CF w* LEN ; _in CSR's to static location. 
FC A600 MOVL BUS CODE_OFFSET(R6),- ; Move software defined bus type code 
0005 'CF w*SQ_BUS_ CODE 3 to static longword. 
NXT_NEXUS: ; For each nexus... 
58 86 00 MOVL (R6)+,R8 ; Get PFN of nexus. 
: Execution continues here if adapter was present. 
GET_TYPE: 
57 86 00 = MOVL (R6)+,R7 ; Get nexus-device type from nexus table. 
6B 1 : Here R7 has hardware adapter code or'ed with software bus code. 
re ! : Translate specific nexus device type code into general adapter type code. 
068 1009 GET_GEN_TYPE: 
0020'CF44 57 90 oo 1 MOVB R7,W*CONFREGCR4) : Save nexus-device type in CONFREG. 
0160°CF44 if dO ; 1 MOVL R7,W°CONFREGLCR4) ; CONFREGL also filled in. 
5 04 A ! 30s CLRL R5 3; Clear loop index. 

50 OO000'°CF45 ODE $38 1 ; MOVAL W*ADAPTERSCRS5),RO : Get address of adapter type code. 
QOOO'CF 99F OO7F 1 PUSHAB W*NUM_PAGES :; Push addr of end of ADAPTERS array. 
8E 0 o1 s 4 CMPL RO, (SP)+ : See if we went beyond array. 

FE 6 1 BGEQU ENO NEXUS : unrecognized adapter, do not map. 
60 7 ~#~©01 1 CMPL TRO) ; Adapter type match? 
98 13 ; 1 BEQL § : If EQL yes acagter type match. 
5 06 dD 1 INCL ; Increment (oop ndex. 
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ee 31 ] ; 460s: BRB 30$ ; Look at next adapter. 
31 108% ; 
4) } 5 : Store boot parameters. 
60 Ads 52 4 + 1 ; : MOVL R2,RPBSL_ADPVIR(R9) ; Store VA of boot adapter space. 
20 a9 = 554—CO 95 1 ; MOVL R4,RPBSL_BOOTRI(R9) ; Store boot adapter nexus number. 
51 54 a9 OD O00 EF 99 1 EXTZV #0,#15, = ; Get offset into UNIBUS/QBUS I/0 page. 
0 9F 1034 RPGS ESRPHY(R9) RI ; 
58 Ao 1000 C241 9E SF 1035 MOVAB <8*512>(R2)CR1J, - ; Set VA of UNIBUS/QBUS registers. 
oDAs i : RPBSL_CSRVIR(ROS : 
A6 1 
Sine 
Saag 1940 > RS/ general adapter type; index into ‘'general’’ adapter arrays. 
OA6 1041 ; For each adapter - 
OA6 eg ; oe the # of pages specified in ADAPDESC macro 
Bae bk 3 JSB to initialization routine specified in ADAPDESC macro 
58 2000 C8 9 Song 194? : 
QOAB 1048 > non-exist memory past Qbus 1/0 space. 
O060'CF44 5 4 boas 1929 MOVL R2,W*SBICONFCR4) ; Save VA of adapter space in SBICONF. 
51 Q000'CF4 C 00B1 1051 MOVZWL W*NUM_PAGESCR5),R1 ; Get number of pages to map. 
6A 10 it 1926 BSBB MAP_PAGES ; Map the 1/0 pages. 
51 0000'CF45 OF 0B9 105 MOVAL W*INIT_ROUTINESCR5],R1 ; Get address of initialization routine. 
61 05 QOBF 1054 TSTL (R1) ; Initialization routine specified? 
04 13 poet 1055 BEQL END_NEXUS ; Branch if none. 
00 8141 16 ace 1926 ae ae a(RT)CR1] ; Call initialization routine. 
54 06 boc? 1058 is INCL R4 : Increment CONFREG and SBICONF index. 
05 tH 106¢ RSB ; Return, as only one nexus. 


MAP_NEXUS : 
MOVAB <16*512>(R8),R8 ; Since no Qbus adapter space, point to 


weeny 


QO0000000"GF 54 


51 OC A444 
51 6144 
017D 

07 
82 0763 8F 


Q00000000'GF 62 


QO000000'GF 51 
Q0000000°GF 6144 
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62 0020'°CF + 
51 54 04 

, Se. 

6244 Q0060°CF 51 
51 8E 

63 O160'CF 51 
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SEP-1984 16:29:18 LSYSLOA.SREIINIADP MAR; 3 
-SBTTL CREATE_ARRAYS 

CREATE_ARRAYS 
Move the local CONFREG and SBICONF arrays into non-paged pool. 


Inputs: 


R4 = Number of nexuses on the system. 
CONFREG and SBICONF have been initialized. 
Outputs: 
RO = RS destroyed 
EXESGL_CONFREG points to a copy of the CONFREG array in non-paged pool 
MMGSGL_SBICONF points to a copy of the SBICONF array in non=-paged pool 
EXESGL_NUMNEXUS contains the number of nexuses on the system 
REATE_ARRAYS: 

MOVL ETE TS NUMNE XUS ; Store number of nexuses on system. 
MOVAL 12(R4)CR4),R1 3; Allocate n bytes for CONFREG plus 

3; 4n aytes for SBICONF + header 
MOVAL (R1)CR4I),R1 ; Another 4n bytes for CONFREGL. 
BSBW “ounce ; Get pool for CONFREG and SBICONF. 
CLRQ (R2)+ ; Clear out unused 
MOVW R1 are ; Set in size 
MOVW #<OYNSC_CONF@8>!DYNSC_INIT,(R2)+ ; Set type and subtype 
MOVA (R2) GPXESGL_CONFREG ; Store address of system CONFREG. 
MOVAB (R2)CR41,R1 : Two steps to CONFREGL, Ist, SBICONF, 
OVL R1 GrnMnGsoL SBI CONF ; Store address of system SBICONF. 
MOVAL  (R1)CR4],G*EXESGL_CONFREGL ; And address of system CONFREGL. 


PUSHR #*M<R2,R4> 

MOVC3 R4,W*CONFREG, (R2) 

POPR #*M<R2,R4> 

MULL3 #4,R4,R1 

MOVL. R1.-(SP) 

MOVC3 RI .W*SBICONF , (R2)CR4I 
+, 

MOVC3 R1,W*CONFREGL, (R3) 


Copy CONFREG to pool. 
Number of bytes in SBICONF. 
Copy SBICONF to 


CONFREGL must be adjacent. 


Save pool address and nexus count. 
Retrieve pool address and nexus count. 
Save, SBICONF size = CONFREGL size 
Restore size of SBT CONF and CONFREGL. 


Copy CONFREGL to pool. R3 is output 
from SBICONF MOVCS, so SBICONF and 
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MAP_PAGES P=} SYSLOA. a REM INIADP.MAR;3 (11) 
] 1198 -SBTTL MAP_PAGES 
1 Wit : INPUTS 
1 W118 : R1/ Number of pages to map. 
1 1113 ; ee VA of page to map. 
1 1114 ; R5/ VA of system page table entry to be used. 
: 1112 : R8/ PFN of page(s) to map. 
1 143 : OUTPUTS: 
} 1118 : R2,R3 updated; R1,R8 destroyed; all other registers preserved 
$3 1159 3 
! 1} § MAP_PAGES: 
83 58 90000000 8F (C9 : : 1 2 BISL3 #<PTESM_VALID!PTESC_Kw>, ot, CaS)4 
; Map a page. 
58 DG O12B 1186 INCL RB i Next PENS 
58 9700 C2 9€ O12D 11 MOVAB 512(R2),R2 : Next VA. 
OOOO000'GF D6 O01 1128 INCL G6*BO O$GL_ SPTFREL 3; Next free entry. 
00000000°GF  Q0000000'GF »D1 Biz 1} 4 CMPL ss alts - ; map cet 5s 6 more system page 
04 15 0143 1131 BLEQ ERROR HA : Branch if out of SPTEs. 
DB 51 =FS (0145 11 ¢ SOBGTR R1,MAP_PAGES : Rep another page. 
05 abe 1 Z RSB 3; ALL done. 
0149 1135 ERROR_HALT: 
51 O260°CF 9E Bae 1 $ onnee mn W*NOSPT,R1 ; Set error message. 
5B D4 OI4E 1138 -CLAL oR : Indicate console terminal. 
00000000'GF 16 0150 1139 JSB G*EXESOUTZSTRING ; Output error message. 
00 0156 1140 HALT : weeee FATAL ERROR teteeee 
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yoa-b0e INI UBSPACE 19-86 =] 9be 9:99:33 YSYSLOA. SRE JINIADP MAR: 3 ” lf, 
! ! ? ‘i -SBTTL INISUBSPACE 
f f : Map UNIBUS space; initialize UNIBUS ADP. 
157 1273 ; INPUTS: 
157 1 if 3 R2 - VA of next free system page 
157 1275 ; R35 = VA of systes page table entry to be used to map VA in R2 
on £6 3 R& = nexus identification number of this adapter 
! i ! 4 ; 8(R6) - PFN of this UNIBUS adapter's register space 
157 1 8 : OUTPUTS: 
oor; 3 9 3 ett te space is mapped. 
ho ee ; INISUBADP is called to build an ADP block and initialize UNIBUS 
12 1 ¢ 3 adapter hardware. 
fea 3 
157 1284 ;-- 
13h 1285 
130 ! § INISUBSPACE: 
58 0160°CF44 DE 157 1290 MOVAL W*CONFREGLER4],R8 ; R&B => CONFREGL slot. 
58 68 0 00 gE 15D 1291 EXTZV 70 Be» (80) ORE ; Get UBA number. 
ee 09 8 166 1 38 ASHL #9,R8,R8 ; Position UB number. 
166 129 
166 1304 
166 1309 
166 1314 
1g 10 
58 00100000 8F 58 C3 0166 13 7 SUBL3 RB, #<IOUVISAL_QBOSP/*X200>,R8 
be: 3 8 ; Get PFN of Qbus I/0 page. 
51 10 00 QO16E 1331 MOVL #16,R% ; Number of pages to map (UB/Qbus space). 
FFAF 30 git) 1336 BSBW MAP_PAGES ; Map 1/0 pages. 
HE} 133 : Call adapter initialization routine. ~ 
0174 1335; 
SE 1336 ; BSBW INISUB4DP 3; Init ADP block. 
174 1337; RSB 
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62 0060'CF44 
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60 5 
04 A0 3850 
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58 00000000'GF 


=m 


60 Ae OE 
53 00000001 'GF 
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ee 
ADP AND INITIALIZE yea “SEP=1984 


NISUBADP: 


: Allocate and initialize Adapter Control 

; MOVZWL W*CPU_ADPSIZE,R1 

MOVW R1,ADP$W_SIZE(R2) 
#DYNSC_ABP 

ADPSB. TYPE (R2) 

#ATS$ 


MOVW : 
ADPS@ ADB TYPE (R2) 

MOVL W*SBICONFCR4J], - ; 
ADPSL CSR(R2) 

MOVW 4, ADP$W_TR(R2) : 

MOVAL ADPS$L_DPQFL(R2),RO ; 

MOVL RO, (RO) ; 


MOVL RO.4(RO) 


MOVAL ADPSL_MRQFL(R2),RO 
MOVL RO, (RO) 


MOVL 0°4(RO) : 
CLRL  ADPS$L_LINK(R2) ; 
BSBW  ADPLIAK ; 
: Initialize adapter interrupt vectors in 
‘ MOVL  G*EXESGL_SCB,R8 : 


MOVAL  “*X200(R 
ADPSL TeCtOR(R2) : 


MOVW #*XE,ADPSW bPBITMAP(R2) 
MOVAL G*UBASUNEXINT+1 


MOVAL W*UBASINTO+1,R4 


ee ed ed od = = = St 8 = od 6d = = 2 = = 2 2 
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; ~SBTTL INISUBADP - BUILD ADP AND INITIALIZE UBA 
; INISUBADP ALLOCATES AND FALLS An AN ADAPTER CONTROL BLOCK, sareneyer 


; DISPATCHER AND CONNECTS THEM TO THE PROPER SCB VECTORS 
: THEN MADE TO UBASINITIAL TO INITIALIZE THE ADAPTER HARDWARE. 


"RG = nexus identification number of this adapter 
Ri1=- offset from beginning of SCB to correct SCB page for this adapter 


Block (ADP). 
PICK UP LENGTH OF ADP 


AND Sef TYPE OF BLOCK 

SET TYPE OF ADAPTER 

SET VA OF CONFIGURATION REG 

SET TR NUMBER FOR ADAPTER 
ADDRESS OF DATA PATH WAIT QUEUE 


; INIT QUEUE HEADER 


ADDRESS OF MAP WAIT QUEUE 
INIT QUEUE HEADER 


ZAP ADAPTER CHAIN LINK 
LINK ADP TO END OF LIST 


System Control Block. 
GET SCB ADDRESS 


REMAINING ADP INIT FOR MICRO-VAX I: 
VECTOR SPACE 


GET ADDR OF UNEXP INT SERV 
(+1 MEANS HANDLE ON INT ? 


) 
RELEASE 


00000000'GF D0 
04 A3 


10 A2 ? 
4 

7F BF BA 
3 4 

FA 51 F 


DD 
0 E 00 
20'AF ODE 
00000000 GF oe 
02440 CO 
00000000° GF DE 
56 (04 DE 
83 D4 
oe 
6145 3 

10 =F 

_ Sk 
Of DA 
0 00 

fee | 
04 A3 8ED0 


Pd 


PPP PH ps5 ps 
‘~~ 
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: INIT QBUS VECTORS TO UNEXPECTED INTERRUPT SERVICE 
: MOVL ADPSL VE VECTOR(R2),RO ; GET ADDRESS OF VECTORS 


MOVL ; SPEC ASE FOR VECTOR 0 
MOVZBL #<NUM BAVEC- =1>,R1 : REST OF VECTORS 

30S: MOVL 3° (RO) + FILL VECTOR WITH UNEXP INT 
SOBGTR R1,30 ; FILL ALL VECTORS 


ALL memory on the QBUS is main memory. There is no memory analogous 
to UNIBUS memory. 


Now pecate the memory controllers and build a List of the addresses 
at which pine es are age gted. This list is yeed by the memory error logic 
in machine-chec 

check, since che “machine-check code cant cause another machine-check 
without causing a cpu double-error halt. 


The List is a count of controllers, followed by the virtual addresses 
that are the memory controller CSRs. Each MSV-11P has a single word CSR. 


-ENABLE LSB 


OVL G*EXESGL_SCB,R3 ; Get SCB address. 
PUSHL 4(R3) 3; Save current mcheck handler address. 
OVL SP,RO ; Mark current stack position. 
MOVAL B“MCHK_HANDLER,4(R3) 3 Connect temp mcheck handler. 
MOVL G*MMGS$GL_SBICONF ,R1 : Get address of SBICONF arteys 
MOVL (R1),R1 — ; Get VA of Qbus 1/0 space 
ADOL #<4012100+*x1000>, R1 ; Offset to memory controller CSR(772100). 
MOVAL G*“EXESAL_MEMCSRS, R4 3; Get address of memory CSR count. 
MOVAL 4(R4),R6™ ; Get address of buffer for CSRs. 
CLRL R5 : Initialize index. 
50$: TSTW (R1)CR5) ; Touch possible memory CSR. 
INCL (R4) ; Count number of orrer bits set. 
MOVAW 0) C85) (R6)+ ; Save address of this CSR 
60$: AOBLSS #16,R5,50$ ; Loop through ail possible CSRs. 
BRB 70$ ; Continue with common code. 


t TEMPORARY MACHINE CHECK HANDLER 


«ALIGN LONG ; Align machine-check vector. 
MCHK_ HANDLER: : 
MTPR #*XF ,#PRUVIS_MCESR ; Clear machine-check state. 
MOVL yy sp ; Clean mcheck frame from stack. 
BRB 60$ : Continue Looking for memory CSRs. 
70$ POPL 4(R3) ; Restore mcheck handler address. 


This information must be determined outside of machine- 
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Woes boo INISUBADP = BUILD ADP AND INITIALIZE ‘pA 19-36-1382 6: 3:43 EeYSLOA. SR SRE SINIADP. RAR: 3 ” day 
C 1648 DISABLE LS 
56 ¢ dO C 166 MOVL ADPSL_CSR(R2) ,R6 ; Pick up adapter pointer 
D4 ARD CURL R1 : Zero out number of UMR to disable 
0256 C2 1 B60 ! MOVW R1,ADP$W_UMR_DIS(R2) 3; Record number disabled 
1701 ; : Initialize rreree for the Qbus map register allocation. Since there 
17 gi 3 are no e Fy: isters for the Micro-VA bus, initialize the date structures 
Vf 7 3 so that the standard allocate routine witt just return an error. 
3f A2 01 00 4 1705 MOVL #1,ADPS$L_MRACTMDRS(R2) ; 1 active map descriptor 
O1FO BF 551A A 17 : SUBW3 «R184 DPS GPRNREGARY (Ra) for a range of 496 registers 
41 1707; CLRL = ADP’SL_ mRAc RS(R2) ; No active descripters. 
41 17 4 : CLRL ADPSW-MRN RreA RY ) : No registers to allocate, 
af C 51 B60 41 171 MOVW R1,ADP$W opeobecg teat” ; starting at register zero. 
62 A 01 E 46 1711 MNEGW #1, ADP$W~ sap tad PELE ; Also init ‘‘fences’’ which preceed 
015C C 01 AE ry ay MNEGW #1,ADPS$W~MRFFENCE(R2) 3; the two descriptor arrays. 
ib at ; Initialize adapter hardware. 
54 62 D0 O24F 1019 MOVL ADP$L_CSR(R2) ,R4 ; Get CSR address to init 
FDAB' 30 0 28 171 BSBW UBASIRNITIAL and initialize adapter 
O1FF BF BA 0255 1718 POPR #°M<RO,R1,R2,R3,R4,R5,R6,R7,RB> ; Restore registers 
05 0259 1719 RSB $ Return 
025A 1720 
025A 1728 
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; INPUT: 
; R4 = nexus identification number of this adapter 
R11= offset from beginning of SCB to correct SCB page for this adapter 


; OUTPUTS: 
; ALL REGISTERS PRESERVED 


ALONPAGD : JMP G* INI SALONONPAGED 


-ENABL LSB 
INISDRADP: ; INITIALIZE DR32 DATA STRUCTURES 
INISCIADP: ; INITIALIZE CI DATA STRUCTURES 
INISMBADP: ; INIT MBA DATA STRUCTURES 


F 16 
LIZATION FOR MICRO-VAX I 16-SEP-1984 01:04: AX/VMS Macro v04-00 Page 22 
D ADP AND INITIALIZE MBA 1$-3Eb-1 3b 94:99:93 YEE YOR. RES INIADP GAR: 3 . (fd | 
-SBTTL INISMBADP = BUILD ADP AND INITIALIZE MBA 
~SBTTL INISDRADP = BUILD ADP AND INITIALIZE DR32 
.SBTTL INISCIADP = BUILD ADP AND INITIALIZE CI 
: INISMBADP IS CALLED AFTER MAPPING THE REGISTERS FOR A MASSBUS ADAPTER. 
; AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. A CRB AND R 
3 ALSO ALLOCATED AND INITIALIZED. THE ADAPTER HARDWARE IS THEN INITIALIZED 
; BY CALLING MBASINITIAL. 
: INISDRADP 1S CALLED AFTER MAPPING THE REGISTERS FOR THE DR32 
; APTER. THE ADAPTER CONTROL BLOCK D IDB ARE ALLOCATED 
; NITI AL IZED. THE ADAPTER HARDWARE Rg THEN INITIALIZED BY 
; CALLING DRSINITIAL. 
: INISMBADP AND INISDRADP SHARE COMMON CODE AFTER THE TABLE OF ADAPTER 
; SPECIFIC CONSTANTS IS SELECTED AND STORED IN R8. 


G 16 | 
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19-$E6-1 382 4:99:43 SYSLOA.SRCJINIADP.MAR; 3 nas da | 


~SBTTL INI$KDZ11 


04-008 INISK 


Po 

> 
—m 
—z 


R2 = VA of next free system page 
R35 = VA of system page table entry to be used to map VA in R2 
R4 = nexus identification number of this adapter 


; OUTPUTS: 
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NI$KDZ11: 


RSB ; Return to caller. 
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t data structures for co 1 


ge *SBTTL INISCONSOLE, 
7 FUNCTIONAL DESCRIPTION: 


I -SEP-1984 AX/VMS Macro V04-00 


-SEP-1984 4 9: 93; 3 SYSLOA.SRCJINIADP.MAR; 3 
init data structures for console 


weeny 


me 


INISCON 


3% 


L oes Fy 


This routine is executed ont y once, during system totttettzetten. 
It initializes the CRB and IDB for boot/console device. 


This routine is called from INIT. 


: NOW BUILD THE 


PIPPIN IPIPIPPIDIPIPDPOPINIDINIPIPIPIPIPIPINPIPINIPINIPYIPIPIPIPINIPIPUPIPOPIPIPIPIPODPIPIPIPIPIPIPUPIPIPIPUPININY ss 
tt MA QHODOOOOCOOCOOCOOCOOOSOSOSCCCSGOCOCOCCSCSOOSOOOOOOOOOOOOOOOOO 


DO na a 9 9 2 OH OOO OH O00 09 69 69.09 69 G9 0D OD SI IN IDS OS UT Be BS BS Be BB BEE ENNIO = 4 


OOD NAME WANE AI 9S OD NAME WWI 2 SO OO NIA UNI FWA 2 0 OO NAUE W* OOONOAUE Win i 


INPUTS: 
; R3 -=> DISK [CLASS] DRIVER DDB 
; R4 ==> DISK ECLASS] DRIVER DPT 
: RS ~~ DISK CLASS) DRIVER UCB 
; R7 ==> ADP FOR EITHER A REAL DISK OR A PORT 
; R9 ==> PORT DRIVER DPT (IF PRESENT) 
3 R10==> PORT DIRVER UCB (IF PRESENT) 
INISCONSOLE: : 
.ENABL LSB 


AUXILIARY DATA BLOCKS (CRB,IDB) 


BLD_CRB: 
58 10 A? 00 -""""MOVL = ADPS$L_CRB(R7),R8 GET ADDRESS OF CRB Hi IT EXISTS 
OE A? 01. «BI CMPW © #AT$_OBA, ADPSW RADPTYPE (RD) 1S THIS A UNIBUS A DAPTER? 
13 9 BEQL LL : YES, ALLOCATE CRB 
005d «(31 68 BRW 100$ : NO, cRBYIDB ALREADY ALLOCATED 
6E FILL_CRB: 
00000000'9F 16 6 JSB a#INISALLOC_CRB GO ALLOCATE ne SETUP CRB 
24 A2 9F163FBB BF D0 6 4 MOVL #*X9F163FBB>CRBSL_ INTD(RB) ; SET PUSHR #*M<R RS> 
7¢ JSB a#0 INTO INTERAUBT DISPATCH 
38 a 57 pO O27¢ MOVL  R7,CRBSL_INTD+VECSL np (ha) SET POINTER TO ADP 
58 52 00 MOVL ; SAVE che POIN 
51 0058 gf C MOVZWL #<{DBSC LENGTH*<Be4>>, R1: SIZE TO ALLOCATE FOR IDB 
00000000 ' 9F 6 JSB af INI SACONNP ; ALLOCATE IDB 
08 A251 2 MOVW Ri ST HECR } SET SIZE OF IDB 
OA A 09 0 029 MOVB iba. TDBS8_TYPE(R2$: AND STRUCTURE TYPE CODE 
2C A 2 00 36 MOVL Ro TERSSL. INTD+VECSL_IDB B(RB) : SET IDB INTO CRB 
9A 
62 58 A6 DO 029A 10$:  MOVL  RPBSL_CSRVIR(RO), ; SAVE BOOT DEVICE CSR ADDRESS 
9E 1DBS 2k (Re) : IN INTERRUPT DISPAT x 
11 91 029 CMPB Ss #BTD + LOW ORDER BYTE OF ORIGINAL RO TELLS 
66 A A RPESB_DEVIVP(RG) : BOOT DEVICE TYPE. 
08 12 he BNEQ 20% : If NOT 8 BOOTING FROM A UDA BRANCH 
00000000'9F 58 A6 D0 O2A4 MOVL  RPBSL_CSRVIR(R6) + COPY VIRTUAL ADDRESS OF UDA PORT CSR 
AC a#B00SGB_SYSTEMI 16 : TO LOW ORDER LONGWORD OF SYSTEMID 


wea 


= ADAPTER 
INISCONSOL 
AC 
ie 
iS 8 
9A 0286 
3¢ BA 
9E CO 
9E C5 
C9 
d7 C9 
cB 
cB 
05 cB 
Oecc 


om 
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Ww 
o 
bad 


100$: 


-SEP-1984 01:04: AX/VMS Macro Vv04-00 Pa 5 | 
ae 6: 9 3 SYSLOA.SRCJINIADP.MAR; 3 - da | 
VL ag foPss ADP(R2) ; POINT IDB TO ADP 
MOVZWL OBVEC(R6),RO =: GET USER SPECIFIED VECTOR 
NEQ ; BRANCH IF VECTOR SPECIFIED 
MOVZBL Ha DEVTYP (RG) RO ; ELSE GET DEVICE TYPE CODE 
MOVZWL W*BOOTV CTOR-2CR - RO : GET DEFAULT INTERRU PT VECTOR 
MOVAB @ADPSL_VECTOR(R7)CROJ,RO: COMPUTE ADDRESS OF VECTOR 
MOVAB CRBSL_INTD+2(R8),(RO) ; SET ADDR OF SNTERRUPT VECTOR 
DECL _— (RO) ; BACK TWO BYTES TO PUSHR, +1 TO 


RSB ; RETURN 
-DISABLE LSB 


ve 
TION FOR MICRO 0-V SEP-1984 4:35 YAX/VMS Macro v04-00 Page 26 
PUTE CORRECT TIMeWA A if: -SEP-1984 4 9: 9:18 CSYSLOA.SRCJINIADP.MAR; 3 . (98) 
-SBTTL EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWAIT LOOP VALUES 
FUNCTIONAL DESCRIPTION: 
XESINI_TIMWAIT waren eee exeye TENUSEC and EXESGL_UBDELAY, cells used 
n the Eime-wait macros. The first data cell, EXESGL_TENUSEC, is fhe number 
of times the followin "9, Loop will "be executed in ten u=seconds. his is 
done once here to calibrate the loop instead of reading the processor clock. 
The resulting number is used in the system macros TIMEWAIT aha TIMEDWAIT. 
The first gtep is to initialize EXESGL_UBDELAY. If the bit test instruction 
T macro is executed too rapidly in a loop, it can saturate the 
Unibus. ExESeL UBDELAY is used to introduce a 3 microsecond delay loop into 
the TIMEWAIT bit test loop. | 
This routine is called only once, from INIT. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


Time-of-day processor clock. 
Interval timers. 


OUTPUT PARAMETERS: 
RO - Destroyed. 
IMPLICIT OUTPUTS: 


| 
EXESGL_TENUSEC = set to appropriate value to make TIMEWAIT and TIMEDWAIT 
macros loop for 10 micro-seconds. | 


EXESGL_UBDELAY - set to appropriate value to make TIMEWAIT and TIMEDWAIT 
pores loop for 3 micro-seconds in the unibus delay 
oop. 


m 
_ 


ALI 


i 
om 
> 


$ 


weeny 


Lond 
Se 


EXESINI_TIMWAIT:: 
“MOVZBL #1,G*EXES 
— #1,G*EXES 


: Initialize time-wait dose a ggits 
GL_UBDELAY ; Set UV1 value same as 
GL-TENUSEC s — UV1 value same as W098 

3; Return 


00000000°GF 01 
00000000'GF 01 
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yO4-b02 EXESINIT TODR -  SET SYSTEN THRE TO COR 1iaSEPo1ORG Sorsoste FekeVeS. eas owiehe Gan:s Pade 27 
DB .SBTTL EXESINIT.TODR = SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 


3+ 
; FUNCTIONAL DESCRIPTION: 


EXESINIT TODR SOLICITS THE CORRECT TIME FROM THE OPERATOR IF NECESSARY, 
CONVERTS THE ASCII RESPONSE TO BINARY FORMAT AND CALLS AN INTERNAL 
ENTRY POINT OF THE SSETIME SYSTEM SERVICE TO SET THE NEW SYSTEM TIME 

IN MEMORY WITHOUT MODIFYING THE CONTENTS OF THE SYSTEM DISK. 
F_THE TIME WOULD NORMALLY BE SOLICITED FROM AN OPERATOR, BECAUSE 
THE HARDWARE TIME OF YEAR CLOCK IS ZERO, THEN THE SYSGEN PARAMETER 
TPWAIT' IS CHECKED. IF IT IS ZERO, THEN IT IS ASSUMED THAT NO 
OPERATOR IS PRESENT AND THE SYSTEM fs BOOTED USING THE LAST TIME 
CORDED IN THE SYSTEM IMAGE. IF THE PARAMETER IS NON ZERO THEN 
THAT TIME TS USED AS THE MAXIMUM TIME TO WAIT BEFOR ASSUMING. THAT 
THERE IS NO OPERATOR AND BOOTING ANY WAY. IF THE PARAMETER IS 


NEGATIVE, NTHE SYSTEM WILL WAIT FOREVER. 
THIS ROUTINE IS CALLED ONLY ONCE, FROM SYSINIT OR STASYSGEN. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
TIME-OF-DAY PROCESSOR CLOCK. 
OUTPUT PARAMETERS: 
RO,R1 = DESTROYED 
IMPLICIT OUTPUTS: 


EXESGQ_SYSTIME - AL TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE 
17-NOV-1858 00:00:00. 


OOCGOCCCOOOOCOoO 
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VUVIoCVTVTVTVTVTVTTVTVTVTVTVTVTTT9T 90000009" 
@ becdecDesTesdecTosDosTesTocTesTosTostestesTestesTeslestesTesle sles] 
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h-hh 4-4-4 4-4-3] 
BDODODODODOwOmm 


DB 
DB : 
+ ; Stack storage offsets: 
00000000 dB TTCHAN = *x00 ; CHANNEL FOR TERMINAL (LONGWORD) 
sii 4 dB TNAME = “X04 ; STRING DESCRIPTOR FOR OPERATOR'S TERM 
000000C dB 45 TMPDESC = “x0C 3; TEMPORY STRING DESCRIPTOR (QUADWORD) 
00000014 dB 44 INTIME = “X14 ; INPUT TIME VALUE to D) 
0000001C dB 45 LINBUF = *X1C ; INPUT LINE BUFFER (5 LONGWORDS) 
00000014 8 r LINBUFSIZ = “X14 ; (LENGTH OF LINE BUFFER IN BYTES) 
DB 4 ; 
0B 4 : PURE DATA 
DB 3 
DB TERM. NAMADR: 
30 $ odo 4 DB 5 SCII \OPA0\ ; DEVICE NAME FOR OPERATOR'S TERMINAL 
DF 53 TERM_NAMSIZ = TERM_NAMADR 
74 61 64 20 64 69 6 61 . ee "890 DF 54 TIMERR: ASCIC’ \invelta. date/time\ i 
6D 6 EB 
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marae EXESINIT TODA SET OVStER THRE TO COR 1fasEpoiope Sarsosth LeNSVOR. SReSiNi aor cean:s | 29° (78, 
oF 
ae TIMEPRORPT sane 
4 4 45 20 $8 i } 4 4 2 F ASCII M Ieee > /PLEASE ENTER DATE AND TIME (DD-MMM-YYYY HH:MM) / 
SSRGERRRRE 
NPROMPT=.=TIMEPROMPT=1 
EXESINIT taagié ca ; SET CORRECT TIME 
77¢ 8F P SRR? R3,R4,R5,R6,RB, Rd, .R10> : ch Sona REG STERS 
0 SUBL #4012, $P Rate 
6 ¢ ROVE oRess 0 SCRATCH STORAGE 
A MOVZBL FIERA NA NAMSIZ TTNAME (R i set re aor oP aifon® TERM NAME AND 
Ab FFAG cf MOVAB ADR, TTNAM ; PIC ADDRESS INTO TERM DESC 
08 00800800" St BBS Sepenesye MOETTIME o" G* oo gne? FLAGS ,REAOTIME ; BR TO SOLICIT TIME 
41 
41 i 
41 : 
4} 
4 BRB READTIME ; ON I CROVAX VAX 1 ALWAYS § cit TIME 
146A 4 : 5$: CLRQ JNTIME (RG) : FOR EXESS ot ME_INT 
00¢ 4 BRW 00 : RE bane fe CALLE ER 
4 READTIME: ; SOLICIT TIME 
5 4 LRL RO + CLEAR A FLA 
58 00000000" GF 5 4B 26 CVTWL G*SGNSGW_TPWAIT,RB : PICK UP T me T WAIT INTERVAL 
3 4 BGTR 3 F POSITIVE, WAIT THAT PERIOD ONCE 
4 BLSS + NEGATIVE IS WAIT FOREVER 
| 6$: 
4 
4 
4 
i 
4 
16 Ab "GF ; 4 mova Go XESGO_TODCBASE INTIME (RG) ; USE LAST KNOWN SYSTEM TIME 
AD ‘ BRW 00$ ; IF THE USER REQUESTS NO PROMPTING 
58 $ 4 7$: nOvL #20.R8 STARTING WAIT alii 
4 $ 8S: SASS IGN 5 TTNAME (R6), rome AND AS $8 by! TO INPUT DEVICE 
DF 50 ‘ R068 : ERO FALL BACK TO STORED T 
52. FF 76 fF 638 10S: sine at nep OMPT,R ET RES OF PROMPT STRING 
ao 8 f ¢ Solours #0 #0 ue tten : Prone NEN AD TIME 
i 44 a <{os $, REA oe PURGE! enti CVT Ow> «= ae eee 
i 44 LIN rONBG Fine) AC inaur $12,- aess A ANO SIZE 
F 266 R2.R3- PROMP AODRESS site 
AF 50 Ab 2466 BLBC) —Es«aRO. 6 + ERROR = FALL BACK TO STORED TIME 
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Fall through into the deallocate logic. 


ae initialization code is a 
3; *** is executed after EXESIN 


; *** This goes in if another 
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-DISABLE LSB 


RSB 
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INIADPUV1 = ADAPTER INITIALIZATION FOR MICRO-VAX I 16-SEP-1984 01:04:35 VAX/VMS Macro V04-00 Page eef 
yo4-002 EXESINIT_TODR = SET SYSTEM TIME TO COR 19° oe 198d Miesita YYSLOA. SREJINIADP_MAR: 3 . 33, 
: r § DEAL_INIT_CODE: 3; DEALLOCATE THE INITIALIZATION CODE 
42A 2488 ; It is the duty of the Last-executed, lcadable initialization 
42A 2489 ; routine to make itself and all other such routines disappear, i.e., 
42A 2490 ; release the space they occupy to non=paged pool. Each routine's vector 
: : 183 ; must be disconnected, e.g., be made to point to the symbol, EXESLOAD_ERROR. 
Od A 198 ; NOTE: This means that new initialization routines should be added 
Be A 2694 ; to this module in a particular order, not necessarily at the 
42A 2695 ; end of the module! 
042A 4 : 
42A 249 - ENABLE Lge 
7E 52 7D Q42A 2498 mOVQ R2,-(SP) ; Save some registers 
420 2499 
042D 2500 ; 
042D 2501 ; First find the vectors that pein to these initialization routines 
Be . 208 3 and reset them to point to EXESLOAD_ERROR. 
50 QOOO'CF 9E 042d 2504 MOVA W*SYSLSBEGIN,RO 5 compte bounds of releasable piece: 
50 00000000'8F C1 0432 2505 ADDL3 #<STAY_HEADER=SYSLSBEGIN>,RO,R1 ; starting and ending addresses. 
26 QO0000000'GF 9E 043A 2506 MOVAB G*EXESAL_LOAVEC,R2 ; Get starting address of vectors. 
53 00000000'GF 9E 0441 2507 MOVAB GPE XESLORD ERROR RS : Get end of vectors. 
F17 8F 62 B1 0448 508 10$: CMPW (R2) ,#°X9FT ; 's this JMP af ? 
1B 13 044d 2509 BEQL ; Br if yes, skip past it. 
80 BF O3 A2 91 Q44F 2510 CMPB (R2),#*Xx80 i; Is this a system space address 
16 12 0454 2511 BNEQ ; Br if no, assume it's a HALT instr. 
50 62 01 0456 21¢ CMPL (R2),RO :; Is address before the releasable 
OC 1F 0459 251 BLSSU : piece of memory? Br on yes. 
51 62 D1 0458 s2i¢ CMPL (R2),R1 ; Is address after the releasable 
07 1A OQO45E 2515 BGTRU ; piece of memory? 6r on yes. 
62 00000000 ' GF 9E 0460 516 MOVAB G*EXESLOAD_ERROR, (R2) ; Reset this vector. 
52 02 CO 0467 2517 gps: ADD! #2,R2 ; Point past this vector. 
52 D6 046A 2518 30$: INCL : Come here to point past JMP af. 
52 06 046C 2519 40S: INCL 4 ; Come here to point past HALT. 
53 52 01 0Q46E 259 CMPL R2,R3 ; Past the end of the vectors? 
D5 sd‘ beet : 1 BLSSU 108 ; Keep searching vectors. 
bees : 3; Now release the memory to non-paged pool. 
50  QOO0'CF 9 ee 525 MOVAB W*SYSLSBEGIN,RO ; Point to start of module 
51 0000°8F Me 0478 2526 MOVZWL #<STAY_HEADER=SYSLSBEGIN>,R1 ; Length to vaporize 
FB8C’ 31 bean at BRW 50$ ; Br to code that is not released. 
00009093 2 3 -PSECT SSSINIT__END,PAGE ; "PAGE SINCE 16-BYTE ALIGN IS NOT 
00 0 531 STAY_HEADER: 
00000000 00000000 5 ¢ -LONG 0,0 
0000" 0008 25 “WORD <SYSLSEND-STAY_HEADER> 
86 OOA 2534 -BYTE DYNSC_LOADCODE 
0 9008 Bf -BYTE 0 
00000000'9F 16 i 5 $ 50$: JSB @#EXESDEANONPGDS1Z ; Just the smile on the Chesire cat 
52. BE 7D Ole 238 MOVQ (SP)+,R2 ; Restore | 
05 1 2 RSB 3; Return. 
16 40 
16 2541 DISABLE LSB 
16 2542 ~ END 
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INIADPUV1 = ADAPTER INITIALIZATION FOR MICRO-VAX | 19360-1386 91 08:38 panives Macro V04-00 Page ; 
Psect synopsis 11*SEP=1984 16:29:18 CSYSLOA.SRCJINIADP.MAR; 3 ( 
daar eenenan seer acost 
: Psect synopsis ! 
te wear cnoece eeceece + 
PSECT name Allocation PSECT No. Attributes 
. a 4444 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
ABS$ 4 ( 0.) 4 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATAO 00000074 ( 116.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA1 BDO ee ( B+ 8 ( 35.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA 44h A ( 58.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA 00 4 ( 0.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATAS 00000074 ( 116.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATAS 00000000 ( 0.) O7 ¢ 7.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA 00000289 ( 649.) 08 ( 8.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
SSSINITSCODE 00000480 ( Masel 09 ( 9.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 
SSSINIT__END 00000016 ( 22.) OA ( 10.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
$m mre em mmm mere en nw wmeewoncn ne 
! Performance indicators ! 
tes eee eee ener mem newemncaeance 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.06 00:00:01.64 
Command processing 141 00:00:00.45 00:00:03.20 
Pass 507 4S SEES 3 00:00:47.78 
Symbol table sort 0 00:00:01.6 00:00:06.88 
ass 2 234 Bs ERE 00:00:17.39 
Symbol table output 24 00:00:00.1 ee Sa 
Psect synopsis output 4 00:00:00.03 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 947 00:00:18.92 00:01:17.74 


The working set Limit was 2100 pages. 

132724 bytes (260 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1600 non-local and 24 local symbols. 
2546 source Lines were read in Pass 1, produc ing 36 object records in Pass 2. 

42 pages of virtual memory were used to define 40 macros. 
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“$52 3 SDUACE FS¥S-0841L 18-08: 1 19 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 14 
TOTALS (all Libraries) 33 


1745 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: INIADPUV1/0BJ=0BJ$: INIADPUV1 MSRC$:CPUSWUV1/UPDATE=(ENHS$: CPUSWUV1) +MSRC$: INIADP/UPDATE=(ENHS$: INIADP) +EXECML$/LIB 
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